home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
C-Communications
/
(c)c5.d64
/
pocket.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
12KB
|
449 lines
1 PRINTCHR$(14)
4 POKE32670,0:IFPEEK(22784)=76GOTO18
6 POKE53281,2:POKE53280,13:POKE646,1:POKE251,0:POKE252,99
18 N%=0
28 POKE659,6:POKE660,0:REM 300BAUD 8BIT NO PARITY
29 POKE53280,11:POKE646,1:POKE53281,11
40 IFPEEK(22784)<>76 THEN GOSUB6000:LOAD"ASM15",8,1
41 PRINT"[147]": GOSUB 7000
42 IF PEEK(789)=97THENPOKE788,49:POKE789,234
43 N%=N%+1:IFN%=1THENSYS24832:SYS32272
44 POKE56,86:POKE644,86:CLR:OPEN5,2,0,CHR$(PEEK(659))+CHR$(PEEK(660))
45 IF PEEK(32670)=1THEN POKE56577,32
46 POKE56579,38:RE$=" ":SE$=" ":MO%=134:R%=0:C$="0123456789ABCDEF"
47 RP=2:RS=0:WP=RP:WS=RS:DIMBB$(30):DIMZZ$(30)
48 POKE24575,RP:POKE24574,RS+96:POKE24573,WP:POKE24572,WS+96
49 PA(0)=10:PA(1)=6:PA(2)=2
50 ML=22784:PRINTCHR$(14):POKE24569,0
51 OPEN1,8,15:POKE556,0:POKE552,0:POKE553,1
52 DN$="":GOTO54
53 PRINT"[147]":GET#5,A$,A$:SYSML+0:CLOSE11:POKE24569,0:TM=0:GOTO44
54 PRINT"[147][211][197][204][197][195][212][160][205][207][196][197]: [145][145][145][145][145][195]ONNECT [212]IME 0 00 00":GOSUB9600
55 PRINT" 1 - [212]ERMINAL [205]ODE":PRINT" 2 - [212]RANSMIT [208]ROGRAM ([213]PLOAD)"
56 PRINT" 3 - [210]ECEIVE [208]ROGRAM ([196]OWMLOAD)"
57 PRINT" 4 - [196]ISK [213]TILITIES"
58 PRINT" 5 - [195]ONFIGURE [208]ARAMETERS"
59 PRINT" 6 - [196]IAL [193] [206]UMBER":PRINT" 7 - [194]UFFER [213]TILITIES"
60 PRINT" 8 - [208]ICKUP / [200]ANGUP [208]HONE"
61 PRINT" 9 - [193]NSWER [205]ODE":PRINT" [209] - [209]UIT"
62 PRINT""
63 GETA$:IFA$=""THENGOTO924
65 ONVAL(A$)GOTO970,970,970,276,400,500,700,900,1000:IF A$="Q"THEN121
66 GOSUB2000:GOTO63
67 PRINT"[147] [210][197][195][197][201][214][197][160][193][160][208][210][207][199][210][193][205]":PRINT "[206]AME [207]F [198]ILE?"
68 PRINT"[196]EFAULT DRIVE IS #0":PRINT">";:GOSUB125:S$=B$
69 IFS$=""THENPRINT#5,"A";:GOTO53
70 IFMID$(S$,2,1)<>":"THENS$="0:"+S$
71 GOSUB91:S$="@"+S$+T$+",W"
72 CLOSE2:OPEN2,8,2,S$:GOSUB132:IFESTHENPRINTES$:CLOSE2:GOTO67
73 PRINT#5,"TTTTTTTTTT";
74 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN74
75 SYSML+18:IFSTTHEN80
76 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN76
77 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12
78 IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN81
79 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO74
80 CLOSE2:PRINT#5,"SSSSSSSSSS";:PRINT:GOTO53
81 PRINT#5,"";:PRINT":";:GOTO74
82 PRINT"[212]YPE OF [198]ILE:"
83 PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT">";
84 GETB$:IFB$=""THEN84
85 TY$=B$:FL=0
86 IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":RETURN
87 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":RETURN
88 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":RETURN
89 IFB$=CHR$(13)THENFL=1:RETURN
90 GOTO84
91 PRINT#5,"UUUUUUUUUU";
92 GET#5,A$:IFST<>0THEN92
93 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO97
94 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO97
95 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO97
96 GOTO92
97 PRINT"[198]ILE [212]YPE: "A$""
98 GET#5,A$:IFST=0THEN98
99 RETURN
100 PRINT"[147] [212][210][193][206][211][205][201][212][160][208][210][207][199][210][193][205]"
101 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT">";:GOSUB125:S$=B$
102 IFS$=""THENPRINT#5,"A";:GOTO53
103 GOSUB82:IFFLTHENS$="":GOTO102
104 CLOSE2:OPEN2,8,2,S$+T$:GOSUB132:IFESTHENPRINTES$:CLOSE2:GOTO101
105 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT
106 GET#5,A$:IFST<>0ORA$<>"U"THEN106
107 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN107
108 SYSML+9:CK=ST
109 FORX=1TO400:NEXT
110 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN110
111 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT
112 PRINT#5,"ZZZZZZZZZZZZZZZ";
113 IFPEEK(669)<>PEEK(670)THEN113
114 GET#5,A$:IFST<>0THEN114
115 IFA$=""THENPRINT":";:GOTO109
116 IFA$<>""THEN114
117 IFCK=0THENPRINT"-";:GOTO107
118 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN118
119 CLOSE2:GOTO53
120 SYSML+21:A$=CHR$(PEEK(634)):RETURN
121 REM QUIT TERMINAL
122 CLOSE5:CLOSE1:CLOSE2:CLOSE11
123 PRINTCHR$(9):POKE788,49:POKE789,234
124 END
125 PRINT" [146][157]";:B$=""
126 GETA$:IFA$=""THEN126
127 IFA$=CHR$(20)THEN130
128 IFA$=CHR$(13)THENPRINT" ":RETURN
129 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO126
130 IFLEN(B$)=0THEN126
131 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO126
132 REM GET ERROR CHANNEL
133 INPUT#1,E1$,E2$,E3$,E4$
134 ES$=E1$+","+E2$+","+E3$+","+E4$
135 ES=VAL(E1$):RETURN
136 POKE22784,0:RUN
137 F1=0:F2=0:F3=0
138 PRINT"[147][198]1=[194]ORDER COLOR"CHR$(13)"[198]3=[194]ACKGROUND COLOR"
139 PRINT"[198]5=CURSOR COLOR"CHR$(13)"[198]7=[194]ACK TO MAIN MENU"
140 IFF1>15THENF1=0
141 IFF2>15THENF2=0
142 IFF3>15THENF3=0
143 GETYU$:IFYU$=""THEN143
144 IFYU$="[133]"THENPOKE53280,F1:F1=F1+1
145 IFYU$="[134]"THENPOKE53281,F2:F2=F2+1
146 IFYU$="[135]"THENPOKE646,F3:F3=F3+1
147 IFYU$="[136]"THEN54
148 GOTO138
149 B1=56577:B2=56579
276 OPEN6,8,15:PRINT"[147]":GOTO307
277 PRINT"[147] [196][201][211][203][160][196][201][210][197][195][212][207][210][217]":OPEN7,8,0,"$0":NQ=0
278 GET#7,A$,B$
279 GET#7,A$,B$
280 GET#7,A$,B$
281 C=0:NQ=NQ+1:IFA$<>""THENC=ASC(A$)
282 IFB$<>""THENC=C+ASC(B$)*256
283 PRINT""MID$(STR$(C),2);TAB(3);"[146]";:IFNQ=1THENPRINT"[157][157] ";
284 GET#7,B$:IF ST <>0THEN293
285 IFB$<>CHR$(34)THEN284
286 GET#7,B$:IFB$<>CHR$(34)THENPRINTB$;:GOTO286
287 GET#7,B$:IFB$=CHR$(32)THEN287
288 PRINTTAB(18);:C$=""
289 C$=C$+B$:GET#7,B$:IFB$<>""THEN289
290 PRINT""LEFT$(C$,3)
291 GETT$:IFT$<>""THENGOSUB295
292 IFST=0THEN279
293 PRINT" [194][204][207][195][203][211] [198][210][197][197]":GOSUB4000
294 CLOSE7:GOTO307
295 IFT$="4"THENCLOSE7:CLOSE6:GOTO54
296 GETT$:IFT$=""GOTO295
297 RETURN
298 REM DITK COMMANDS
299 C$="":PRINT" [197][206][212][197][210][160][195][207][205][205][193][206][196]":PRINT" >";
300 GETB$:IFB$=""THEN300
301 PRINTB$;:IFB$=CHR$(13)THEN303
302 C$=C$+B$:GOTO300
303 PRINT#6,C$
304 PRINT" ";
305 GET#6,A$:PRINTA$;:IFA$<>CHR$(13)GOTO305
306 FORX=0TO600:NEXTX:PRINT"[146]"
307 PRINT"[147] [196][201][211][203][160][213][212][201][204][201][212][201][197][211]":PRINT" 1 - [196]IRECTORY"
308 PRINT" 2 - [196]ISK COMMAND"
309 PRINT" 3 - [196]ISK [211]TATUS"
310 PRINT" 4 - [205]AIN [205]ENU":PRINT""
311 GETA$:IFA$=""THEN311
312 IFA$="1"THEN277
313 IFA$="2"ORA$="."THEN298
314 IFA$="4"ORA$=" "THENCLOSE6:CLOSE7:GOTO54
315 IFA$="3"THEN304
316 GOTO311
317 REM CHECK USR RETURN VALUE
318 NB=NB-(NB<0)*65536
319 IFNB<61440THENUE=0:RETURN
320 IFNB=61440THENUE=128:RETURN
321 PRINT"READ ERROR# ";NB-61440:RETURN
400 CM=0:XT%=PEEK(659):YT%=PEEK(660)AND251
402 PRINT"[147][195][207][206][198][201][199][213][210][197][160][208][193][210][193][205][197][212][197][210][211]"
409 PRINT" 1 - [211]CREEN [195]OLOURS"
410 PRINT" 2 - [194]AUD"
411 PRINT" 3 - [196]UPLEX"
412 PRINT" 4 - [205]AIN [205]ENU"
414 PRINT"":GOTO450
420 GET A$:IF A$=""THEN 420
422 ONVAL(A$)GOTO429,450,460,44
423 IFA$=" "THEN 44
425 GOTO 420
429 F1=0:F2=0:F3=0
430 PRINT" [198]1 - [194]ORDER COLOUR"
431 PRINT" [198]3 - [194]ACKGROUND [195]OLOUR"
432 PRINT" [198]5 - [195]URSER COLOUR"
433 PRINT" [198]7 - [195]OLOURS [207][203]"
435 GET A$:IFA$=""THEN435
436 IF F1>15THENF1=0
437 IF F2>15THENF2=0
438 IF F3>15THENF3=0
442 IFA$="[133]"THEN POKE53280,F1:F1=F1+1
443 IFA$="[134]"THEN POKE53281,F2:F2=F2+1
444 IFA$="[135]"THEN POKE646,F3:F3=F3+1
445 IF A$="[136]"THEN400
448 GOTO430
450 XB%=XT%AND15:IFCM<>0THENXB%=XB%+1:IFXB%>7THENXB%=1
451 IFXB%=2 OR XB%=4THENXB%=XB%+1
452 IFXB%=6THENBR$="<300>"
453 IFXB%=7THENBR$="<600>"
454 IFXB%=1THENBR$="<50> "
455 IFXB%=3THENBR$="<110> "
456 IFXB%=5THENBR$="<150> "
457 XT%=XT%-(XT%AND15)+XB%
458 PRINT"";BR$;"":IFCM=0THENGOTO460
459 GOTO480
460 IF CM<>0 THENIF PEEK(32679)=169 THEN POKE 32679,214:GOTO462
461 IF CM<>0THENIFPEEK(32679)=214THENPOKE32679,169
462 IFPEEK(32679)=169THENSB$="<[200][193][204][198]>"
463 IFPEEK(32679)=214THENSB$="<[198][213][204][204]>"
465 PRINT"";SB$;"":CM=1
480 POKE659,XT%:POKE660,(YT%+(PEEK(660)AND4)):GOTO420
500 PRINT"[147] [196][201][193][204][160][213][212][201][204][201][212][201][197][211]"
502 PRINT" 1 - [196]IAL [198]ROM [203][197][217][194][207][193][210][196]"
503 PRINT" 2 - [196]IAL [198]ROM [196][201][211][203] [198]ILE"
505 PRINT" 3 - [195]REATE [206]UMBER [198]ILE"
508 PRINT" 4 - [205]AIN [205]ENU"
509 GOSUB9500
510 GETA$:IFA$=""THEN GOSUB925:PRINT"":GOTO 510
520 ONVAL(A$)GOTO530,635,620,54
522 IF A$=" "THEN54
530 OO$="":PRINT" [197][206][212][197][210][160][206][213][205][194][197][210][160][212][207][160][196][201][193][204]":INPUT" ";OO$:PRINT ""
531 IFLEN(OO$)=0THEN GOTO 500
532 IF LEN(OO$)>15 OR LEN(OO$)<7THEN530
534 D$=OO$:GOTO4500
620 PRINT"":FORBB=1TO30:BB$(BB)="":NEXTBB
621 NF$="":INPUT" [198][201][204][197][160][206][193][205][197]";NF$
622 IF NF$=""THEN 500
623 BB=1
624 PRINT"[147] [197][206][212][197][210][160][206][213][205][194][197][210][160][212][207][160][194][197][160][211][193][214][197][196]"
625 PRINT" ";BB;" - ";:INPUT BB$(BB)
626 IF BB$(BB)=""GOTO628
627 BB=BB+1:GOTO625
628 OPEN40,8,3,"@0:"+NF$+",S,W"
630 FORVV=1TOBB-1:PRINT#40,BB$(VV):NEXTVV
632 PRINT#40,"@":CLOSE40:GOTO500
635 ZZ=1
636 INPUT"[206][213][205][194][197][210][160][198][201][204][197][160][206][193][205][197]";NF$
638 IF NF$=""GOTO500
640 OPEN15,8,3,""+NF$
642 INPUT#15,ZZ$(ZZ)
644 IF ZZ$(ZZ)=""THENCLOSE15:GOTO635
645 IF ZZ$(ZZ)="@"THENCLOSE15:GOTO649
648 ZZ=ZZ+1:GOTO642
649 PRINT"[147]"
650 FORX=1TO(ZZ-1)
655 PRINTX;" - ";ZZ$(X):NEXTX
657 DD$="":INPUT"[211][197][204][197][195][212][160][206][213][205][194][197][210][160][212][207][160][196][201][193][204]";DD$
658 IF DD$=""THEN 500
659 IFVAL(DD$)=0 OR VAL(DD$)>(ZZ-1)THEN PRINT"[145][145][145][145]":GOTO657
660 D$=ZZ$(VAL(DD$)):GOTO4500
700 PRINT"[147] [194][213][198][198][197][210][160][213][212][201][204][201][212][201][197][211]:"
702 PRINT" 1 - [195]LEAR [194]UFFER"
703 PRINT" 2 - [210]EVIEW [194]UFFER"
704 PRINT" 3 - [211]CROLL [211]PEED"
705 PRINT" 4 - [211]AVE [194]UFFER TO [196][201][211][203]"
706 PRINT" 5 - [211]AVE [194]UFFER TO [195][193][211][211][197][212][212][197]"
707 PRINT" 6 - [208]RINT [194]UFFER"
709 PRINT" 7 - [205]AIN [205]ENU"
710 PRINT"":GOSUB860
720 ZX=((PEEK(32602)*256)+PEEK(32601)-25344):ZT=7167-ZX
721 IFZX=0THENPRINT"[194]UFFER [197][205][208][212][217] ":GOSUB790
722 IFZX<>0THENPRINT"[194]UFFER [204][207][193][196][197][196]":GOSUB790
723 IFZX=32300THENPRINT"[194]UFFER [198][213][204][204] ":GOSUB790
724 GET A$:IF A$=""THEN 724
725 ONVAL(A$)GOTO730,740,870,9000,9100,9200,54
726 IF A$=" "THEN54
728 GOTO 724
730 PRINT" [193][210][197][160][217][207][213][160][211][213][210][197] ([217]/[206])[145]"
731 GET A$:IFA$=""THEN731
732 IFA$<>"Y"THENPRINT" ":GOTO720
733 PRINT" "
734 POKE32602,99:POKE32601,0
735 GOTO 720
740 GOSUB800:IF GZ%=1 THEN GOTO724
742 POKE32288,0:POKE32289,99
750 PRINT"[147]":SYS32320:PRINT""
755 GOTO700
790 PRINT"[198]REE=";ZT;"[157] "
792 PRINT"[213]SED=";ZX;"[157] ":RETURN
800 IF (PEEK(32602)<>99) OR (PEEK(32601)<>0)THEN GZ%=0:RETURN
805 PRINT" [194][213][198][198][197][210] [197][205][208][212][217][145]":GOSUB 2000:GZ%=1
850 PRINT" ":RETURN
860 IF PEEK(32299)<100 THEN PRINT"<[198][193][211][212]>"
861 IF PEEK(32299)>99THEN PRINT"<[211][204][207][215]>"
865 RETURN
870 IF PEEK(32299)<100 THEN POKE 32299,255:GOTO873
871 IF PEEK(32299)>99 THEN POKE 32299,1
873 GOSUB860:GOTO724
900 ZX=(PEEK(56577)AND32)
903 POKE56579,32:IFZX=0THENPOKE56577,32:POKE32670,1:GOSUB5000
905 IFZX=32THENPOKE56577,0:POKE32670,0
924 GOSUB925:GOSUB5000:GOTO62
925 ZX=(PEEK(56577)AND32):PRINT""
926 IFZX=32THENPRINT"[205]ODEM [207][206][204][201][206][197] ":GOTO930
928 IFZX=0 THENPRINT"[205]ODEM [207][198][198][204][201][206][197]":GOTO950
930 ZX=(PEEK(56577)AND16)
935 IFZX=16THENPRINT" [206][207][160][195]ARRIER ":GOTO960
940 IFZX=0 THENPRINT" [195]ARRIER [208]RESENT":GOTO960
950 PRINT" "
960 RETURN
970 IF(PEEK(56577)AND32)=32 THEN 990
971 PRINT"[205][207][196][197][205][160][207][198][198][204][201][206][197]"
980 GOSUB2000:PRINT" "
985 A$="":GOTO 62
990 IF A$="1"THEN GOSUB9500:GOTO53
992 IF A$="2"GOTO100
993 IF A$="3"GOTO67
1000 POKE56577,0:POKE32670,0:GOSUB5510:PRINT"[147]":PRINT"[215][193][201][212][201][206][199][160][198][207][210][160][195][193][204][204]"
1010 PRINT" [211]WITCH [205]ODEM [212]O [193][206][211][215][197][210] [208]OSITION"
1020 PRINT" [200]IT [193]NY [203]EY [212]O [197]XIT"
1025 GOSUB9500
1030 GOSUB925:PRINT""
1040 GETA$:IFA$=""THEN 1050
1045 GOTO 54
1050 IF(PEEK(56577)AND8)=8THEN1040
1055 PRINT"[195][193][204][204][160][210][197][195][197][201][214][197][196] "
1060 POKE56577,32:POKE32670,1:GOSUB5500:X=0:GOSUB2000
1065 PRINT" [200]IT [193]NY [203]EY [198]OR [212][197][210][205][201][206][193][204] [205]ODE"
1070 GOSUB925:PRINT"":GOSUB2000:GETA$
1075 IF(PEEK(56577)AND16)=16 THENX=X+1:GOTO1085
1080 X=0
1085 IFX=10THENX=0:GOTO1000
1090 IFA$=""THEN1070
1095 GOTO53
2000 S=54272
2010 FOR L=0TO24:POKES+L,0:NEXTL
2015 POKES+1,100
2020 POKES+5,10
2025 POKES+15,255
2030 POKES+24,15
2040 POKES+4,21
2045 FORT=1TO40:POKES+24,INT((40-T)/2.6):NEXTT:POKES+4,20
2050 FORL=STOS+24:POKEL,0:NEXTL
2055 RETURN
3000 FORA=0TO800:NEXTA:RETURN
4000 GETT$:IFT$=""THEN4000
4001 RETURN
4500 DD=1
4502 B1=56577:B2=56579
4506 POKEB2,32:POKEB1,0:POKE 32670,0:GOSUB5510
4507 PRINT"[147]":GOSUB925
4508 PRINT" [212][207] [211][212][207][208][160][196][201][193][204][201][206][199][160][200][201][212][160][193][206][217][160][203][197][217]"
4509 FORX=1TO500:NEXTX
4510 POKE B1,32:PRINT"[207][206][204][201][206][197] ":GOSUB5500
4511 POKE32670,1:PRINT"[196][201][193][204][201][206][199]: ";
4512 FORX=0TO1000:NEXTX
4515 D=LEN(D$)
4518 FORX=1TOD
4520 N$=MID$(D$,X,1):II=0
4522 IF N$<CHR$(48)ORN$>CHR$(57)THENII=1
4525 PRINTN$;:IFII=1GOTO4540
4528 N=VAL(N$)
4530 IF N=0THENN=10
4535 GOSUB4800
4540 NEXT X:IF X>19THEND$="":POKEB1,0:GOSUB5510:POKE 32670,0:GOTO500
4550 PRINT" [196][201][193][204][160][195][207][205][208][204][197][212][197] - [215]AITING [198]OR [195]ARRIER"
4560 X1=0:FOR X=1TO400:PRINT"":GOSUB925
4565 IF(PEEK(B1)AND64)=0THENX=2001:X1=1
4570 GETFF$:IF FF$<>""THENPOKEB1,0:GOSUB5510:POKE32670,0:X=3000
4580 NEXT X:IFX>2500 GOTO500
4590 IF X1<>1THEN4502
4595 PRINT"[195][193][210][210][201][197][210] [196][197][212][197][195][212][197][196]"
4597 GOSUB2000:GOSUB5500:GOTO54
4598 YY=1:YY$(YY)=YY$
4800 FORN1=1TON
4811 POKEB1,0
4812 FOR T=0TO25:NEXTT
4815 POKEB1,32
4818 FOR T=0TO15:NEXTT
4820 NEXTN1:T=25
4830 GETA$:IF A$<>""THENX=20
4840 T=T-1:IFT<>0THEN4830
4850 RETURN
5000 IF PEEK(789)=234THEN IF PEEK(32670)=1THENSYS24832 :GOTO5020
5010 IF PEEK(789)<>234THEN IF PEEK(32670)=0THENSYS32272
5020 RETURN
5500 IF PEEK(789)=234THEN SYS24832
5505 RETURN
5510 IF PEEK(789)<>234THEN SYS32272
5515 RETURN
6000 PRINT"[147][158] [208][207][195][203][197][212][160][205][207][196][197][205] [212][197][210][205][201][206][193][204][160][211][207][198][212][215][193][210][197] [214]ERSION [195].1";
6001 PRINT" 08-07-84"
6020 PRINT" [212]HIS IS PUBLIC DOMAIN SOFTWARE "
6022 PRINT" AND MAY BE DUPLICATED FREELY !"
6035 PRINT" [211]OFTWARE [207]RIGINALLY [194]Y [211][212][197][214][197][160][208][213][206][212][197][210]"
6040 PRINT" [195]ONVERTED [194]Y [203][197][201][212][200] [208][197][212][197][210][211][207][206]"
6050 PRINT" [210]EAL [212]IME [195]LOCK [194]Y [194][207][194][160][200][193][215][203][201][206][211]"
6070 PRINT" [207]THER [197]NHANCEMENTS [201]NCORPERATED"
6071 PRINT" [211]PECIFICALLY [198]OR [212]HE [208][207][195][203][197][212] [205][207][196][197][205]"
6080 PRINT" [204][207][193][196][201][206][199][160][193][211][211][197][205][194][204][197][210] [198][201][204][197]"
6100 RETURN
7000 IF (PEEK(56577)AND32)=32THEN RETURN
7010 PRINT"[147] [205][207][196][197][205][160][205][213][211][212][160][194][197][160][211][215][201][212][195][200][197][196] TO [207][206][204][201][206][197] "
7020 PRINT" FOR OPERATION WITH THIS SOFTWARE"
7022 PRINT" [207][210][199] /[160][193][206][211] SWITCH SHOULD BE SET"
7024 PRINT" TO [207][210][201][199][201][206][193][212][197] FOR MOST [194][194][211]'S"
7030 IF (PEEK(56577)AND32)=32THEN 7040
7035 GETA$:IFA$<>" "THEN GOTO7030
7040 RETURN
9000 GOSUB800:IF GZ%=1THEN GOTO 720
9002 D$="":PRINT" [197][206][212][197][210][160][198][201][204][197][160][206][193][205][197]":INPUT" ";D$
9005 A=LEN(D$)
9007 IF A>10 THEN PRINT"[145] [145][145]":GOTO9000
9008 IF A=0 THEN GOTO9060
9010 POKE 23475,A
9015 FOR X=1 TO A
9016 B=ASC(MID$(D$,X,1))
9018 POKE 23444+X,B
9020 NEXT X
9022 POKE 23466,10:REM OPEN
9025 POKE 23468,8 :REM DISK
9028 POKE 23470,1 :REM NUMBER
9030 POKE 23496,PEEK(32602)
9035 POKE 23494,PEEK(32601)
9050 SYS 23465
9060 PRINT"[145][145] "
9070 PRINT" ":GOTO724
9100 GOSUB800:IF GZ%=1THEN GOTO 720
9110 POKE 23475,0
9112 POKE 23466,10:REM OPEN
9115 POKE 23468,1 :REM CASSETTE
9120 POKE 23470,1 :REM OUTPUT
9124 PRINT" ";
9125 SYS 23465
9130 GOTO 700
9200 OPEN 4,4
9205 PRINT" [193][211][195][201][201] [[193]] OR [195][194][205] [[195]] [207]UTPUT ";
9208 A$="":INPUTA$:IF A$=""THEN9295
9210 IF A$="A"ORA$="[193]" THEN X=1:GOTO9220
9212 IF A$="C"ORA$="[195]" THEN X=0:GOTO9300
9214 GOTO 9205
9220 PRINT"[145] [208][210][201][206][212][201][206][199] "
9221 FOR P=1 TO ZX
9224 JS=25344+P
9226 T=(PEEK(JS))
9230 IF T>64 THEN IF T<96 THEN T=T+32
9231 IF T>159 THEN T=(T-128)
9235 PRINT#4,CHR$(T);
9240 GET A$:IF A$=" "THEN 9290
9250 NEXT P
9290 PRINT#4,CHR$(13)
9295 CLOSE4:GOTO 700
9300 PRINT"[145] [208][210][201][206][212][201][206][199] "
9321 FOR P=1 TO ZX
9324 JS=25344+P
9326 T=(PEEK(JS))
9335 PRINT#4,CHR$(T);
9340 GET A$:IF A$=" "THEN 9290
9350 NEXT P
9390 PRINT#4,CHR$(13)
9395 CLOSE4:GOTO 700
9500 POKE 23263,0
9505 POKE 23271,0
9510 RETURN
9600 POKE 23263,3
9605 POKE 23271,17
9610 RETURN